home *** CD-ROM | disk | FTP | other *** search
/ Your Choice 3 / Your Choice Software Collection 3.iso / prgmming / fsprite3 / reality.pas < prev    next >
Pascal/Delphi Source File  |  1994-04-27  |  856b  |  31 lines
  1. {Galaga type game using FSPRITE3 unit}
  2. {Reality}
  3. {by Warren Steven Riley}
  4. {Copyright 1992,1994}
  5. {All Rights Reserved}
  6.  
  7. {$define meanbomb}
  8. {$M 32000,0,655360}
  9. {$a+ $b- $g+ $i- $r- $s- $x+}
  10. USES realevil,REALVARS,REALBASE,CRT,FSPRITE3;
  11.  
  12. BEGIN
  13.     INTRO_SCREEN;
  14.     ONE_TIME_SETUP;
  15.     REPEAT;         {Every Level Change}
  16.         varsetup;   {Setup variables each new game}
  17.         levelsetup; {Set up new levels each new game}
  18.         levelme;    {Show level}
  19.         IF NOT (DEMO_MODE) THEN TWINKLE ELSE DELAY (1500);
  20.         Mid^:=back^;   {Reset middle screen}
  21.         act:=back^;    {Reset active screen}
  22.         SCORE := 0;
  23.         Scoreme;       {Show latest score and remaining lives}
  24.         GAME_LOOP;     {Main loop loops until end of game}
  25.     UNTIL ESC_HIT;
  26.  
  27.     TEXTMODE (LastMode);
  28.     WRITELN;
  29.     NOSOUND;
  30. END.
  31.